#!perl -T

use strict;
use warnings;
use Test::More tests => 2;
use Test::BoostUnit qw(:ALL);

like(makeCDATA ("Content1"), qr|<!\[CDATA\[\s*Content1\s*\]\]>\s*|ms, "makeCDATA - One Message");
like(makeCDATA ("Content1", "Content2"), qr|<!\[CDATA\[\s*Content1\s*Content2\s*\]\]>\s*|ms, "makeCDATA - Two Messages");
